home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / up.mpl < prev    next >
Encoding:
Text File  |  1996-02-06  |  790 b   |  48 lines
  1. -14072
  2. #
  3. #
  4. #
  5. #    Up.mpl
  6. #
  7. #    An echo with increasing note
  8. # 
  9. #           Author           ID               Date
  10. #       ------------    -----------          ---------
  11. #       Serge Sibony    100417,2633          09/14/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # 
  19. #
  20. # This effect adds real echo to all notes you are playing
  21. # the notes added are going up and up
  22. #
  23. #
  24.  
  25. Label Main
  26.  
  27. v== 1 5            only 4 echos per note
  28.     Goto end
  29. V+= 1 1
  30. Time+= 240
  31. Note*= 1.1
  32. v=v 4 1
  33. v/= 4 5
  34. v+= 4 1.2
  35.  
  36. vel/=V 4
  37. outmidi
  38.  
  39. goto main
  40.  
  41. Label End
  42. v= 1 0
  43. End
  44.  
  45. descript an almost real echo 
  46. descript with decreasing volume
  47. descript and increasing note
  48.